home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / WELCOM.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-02-09  |  617 b   |  32 lines
  1. ' WELCOME.BAS
  2. '
  3. '            Welcome to the QuickBASIC Interpreter!
  4. '
  5. ' To run this program, drop down the Run menu and choose Start
  6. ' or hold down either Shift key and press the F5 function key.
  7.  
  8. CLS
  9.  
  10. FOR i% = 1 TO 3
  11.  
  12.     READ column%, word$
  13.      y% = 0
  14.     FOR row% = 2 TO 18
  15.      FOR y% = 1 TO 15
  16.         LOCATE row%, column%
  17.         COLOR y%, 5
  18.         PRINT word$
  19.         
  20.         LOCATE row% - 1, column%
  21.         NEXT y%
  22.         PRINT SPACE$(LEN(word$))
  23.         SOUND (2400 / row%), 1
  24.     NEXT row%
  25.  
  26. NEXT i%
  27.  
  28. LOCATE 1, 1
  29.  
  30. DATA 25, "Innovative", 37, "Computer",48, "Consultants",
  31.  
  32.